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16-Sep-1984 00:54:4 VAX-11 Bliss-32 V4.0-742 Pa 1 
ae 00:39:58 DISKSVMSMASTER: CF11A.SRCICREHDR.B32;1 - (1) 


; 1 69) MODULE CREHDR ( 

3 ¢ Mt LANGUAGE ( b 15854) 

3 IDENT = ‘v04-000' 

3 4 4 des 

5 5 BR? : BEGIN | 
; ; 009 1! 
3 3 4 : SSR Re RARER ERE AAAAAEAA AAA AAAAAEETAAEAAAAAERAEEEEEEAAEREREEES 
3 'e * 

; 610 010 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY y 
3 11 011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * | 
5 1 ig : > ALL RIGHTS RESERVED. * 
4 4 ® | 
3 14 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

: 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

s 16 Bn18 1 !® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

5 17 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

$ 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; pb Bo 5 : ~ TRANSFERRED. * 

° .* ry 

3 i bos) 1 !@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * | 
; ¢ 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; 33 0028 ! is CORPORATION. * 
H :® ® 

; 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

3 26 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; i 0027 1 !* * 
3 8 0028 1 !* « | 
: 56 34 1S eee eee eee RRA RRA AAAAAAAAAAAAAAA AAA AAAARAAAAAAAAAAAAAAARKARHAARRAAeeeeeeeeet | 
3 0 0030 1 

; 1 0031 1 !++ 

$ 3 O03¢ 1! 

5 0035 1 ! FACILITY: F11ACP Structure Level 1 

; $e Boe 1! 

3 5 35 1 ! ABSTRACT: 

3 36 0036 1! : : a 

sy ar 0037 1! This routine creates a new file ID by oh ecer tne a file number from the 

: $e Bo38 : index file bitmap. It returns an empty file header, verified for use. 

; 40 0040 1 ! ENVIRONMENT: 

a. 0041 1! 

3 $¢ Bots +! STARLET operating system, including privileged system services 

: € 00435 1! and internal exec routines. 

: «646 044 1! 
; 645 5 1 !-- 
3 ri 046 1! 

; 6 0047 1! , 

3 $8 srk : : AUTHOR: Andrew C. Goldstein, CREATION DATE: 28-Mar-1977 13:49 

3 50 0050 1 ! MODIFIED BY: 
pe. Baas 1% : 

; 2§ B26 1! A0101 = =ACGO117 Andrew C. Goldstein, 16-Jan-1980 17:07 
3 27 0034 ' } Return true 1/0 status on I/O errors 

3; 2 55 1 3 A0100 ACG00001 Andrew C. Goldstein, 10-Oct-1978 20:02 

: 28 OOe$ ' Previous revision history moved to F11A.REV 

2 ‘ee 


1§-200-1 984 99:35:38) BTRcduwGmaSTen sch Tiacsneacrenpr.e32:1°%° (18 


REQUIRE *SReS:FCPDEF.BNotr 


FORWARD ROUTINE 
CREATE_ R ! create file ID and header 
UPDAT : NOVALUE, ' update index bitmap scan start 
READ _NEW_HEADER, ! read new file header block 
HANDCER; ' Local condition handler 


2) 


ee -4 


14 
CREHDR 1b-Se 1984 254:4 VAX-11 Bliss-32 V4.0-742 Page 3 
v04-000 1e8eb-19R6 19:39:38 DISKSVMGMASTERCLI TIA. SRC ICREHOR.B32: 1° (2), 
; 70 ; ! GLOBAL ROUTINE CREATE_HEADER = 
2 5 1 !4 
i. = $ } ; 
; o 4 : FUNCTIONAL DESCRIPTION: 
2 89 1! This routine creates a new file 0 by searching the volume's index 
. £2 90 1! file bitmap for the first free file number. It also checks that a header 
; © 8 my 3 for the file number is present in the index file. It reads the old 
3 0 3 \ } header and establishes the file sequence number for the new one. 
: 81 0394 1 | CALLING SEQUENCE: 
: ¢ 8 95 1! CREATE_HEADER () 
= 38 1! 
: 84 0397 1 ! INPUT PARAMETERS: 
; «685 0398 1! NONE 
; 8735 1! 
or 400 1 ! IMPLICIT INPUTS: 
; «688 0401 1! CURRENT_VCB: address of volume's VCB 
5; oe88 1! 
: 90 0405 1 ! OUTPUT PARAMETERS: 
; 0406 1! NONE 
i-S 0405 1! 
: 9 0406 1 i IMPLICIT OUTPUTS: | 
: QA 0407 1! NONE 
;. 0408 1! 
3 96 0409 1 ! ROUTINE VALUE: 
3; WT 0410 1! address of buffer containing new header 
; 0411 1! 
: 99 brig 1 ! SIDE EFFECTS: 
; 100 041 1} VCB and index file bitmap altered, header block read 
> 101 0414 1! 
3 10¢ 0415 1 !-- 
: 104 0417 BEGIN 
: 105 0418 
> 106 0419 LOCAL 
; 107 0420 vcB : REF BBLOCK, ! Local sony of VCB address | 
3 108 0421 VBN ! relative Block number in pitacp 
. % 04 ‘ f : REF BITVECTOR, ! address of index file bitmap buffer 
; 110 04 ADDRESS : REF BITVECTOR, ! address of byte in buffer | 
3; (111 0424 BITPOS, ! bit positon of free bit within byte 
> 112 0425 FILE NUMBER, ! file number allocated 
s 15 8 § 1DxX_FCB : REF BBLOCK, ' FCB of index file 
: «6116 4 . ' LBM of new file header 
3 6115 0428 HEADER : REF BBLOCK, ! address of header buffer 
3 118 Be 4 SAVE_STATUS; ! save 1/0 status during CHECK_HEADER call 
; #4118 0431 EXTERNAL | 
: 119 83 § CURRENT_VCB : REF BBLOCK, ! VCB of volume 
; 120 NEW FID, ! pending file ID 
: 121 04 HEABER_LBN ' LBN of created file header 
S : 35 USER_STATUS : VECTOR; i 1/0 status block of user | 
; 6126 3$ EXTERNAL ROUTINE 
3; 125 +38 READ BLOCK, ! read block from disk 
: 126 WRITE_BLOCK, ! write block to disk 


| 
| 
| 


M14 

HOR 16-Sep-1984 00:54:4 VAX-11 Bliss-32 V4 
v04-000 1 ~3ep-19 4 9933933 DISKSVMSMASTER:CF1 
s 27 440 EXTEND INDEX, : essere the index file 
s; te 44) Vv ! map virtual to logical block 
: 129 44 CHECK_HEADER; i verify file header 
Ie Me 
= § 445 ! The outer loop perreras retries if blocks in the index file are bad. 
a rts | ! Bad header blocks are sinoly left marked in use in the index file bitmap; 
; : : teh they will show up in a verify but are otherwise harmless. 
rt 0449 
.. 7 0450 VCB = .CURRENT_VCB; 
3 7 Bee) WHILE 1 DO 
a | 4 § BEGIN 
; 140 045 . 
; (141 0454 : We scan the index file bitmap for the first free (zero) bit. This is done 
: re 0455 ! by starting with the block recorded in the VCB and looking at each block 
; 14 p4 28 : with a character scan. ] 
> (146 045 ! .™ 
> «145 0458 
; 146 0459 VBN = .VCBCVCB$B_IBMAPVBN); 
3: «61467 0460 ; 
; 148 0461 IF 
; 4149 Bees 4 BEGIN 
; 150 04635 4 UNTIL .VBN GEQ .VCBCVCB$B_IBMAPSIZE) DO 
s 33) 0464 5 BEGIN 
; 136 0465 5 BUFFER = READ BLOCK (.VBN + .VCBCVCB$L_IBMAPLBN), 1, INDEX_TYPE); 
; 0466 5 IF NOT CHSFAIC (ADDRESS = CHSFIND_NOT_CH (512, .BUFFER, 255)) 
; 154 0467 5 THEN EXITLOOP 0; 
3 99 0468 5 VBN = .VBN + 1; 
; 156 0469 5 END 
s; 37 0470 4 END 
; iz 0471 4 : : , 
s 1359 0472 4! If we fall through the loop, the entire bitmap is full. 
; 160 0473 4! 
s 10) 0474 4 
3 16¢ beoe 3 THEN ERR_EXIT (SS$_IDXFILEFULL); 
: 164 0477 ! Having found a byte containing a zero bit, scan for the bit. 
: 165 0478 : 
: 198 0479 
; 4 Bees ; FFC (ZREF (0), ZREF (8), .ADDRESS, BITPOS); 
: 169 Bees : Compute the file number and check it against the maximum files allowed 
; if 04 ! on the volume. Also check if the corresponding file header is present in 
3 Wi 0484 ! the index file. If not, extend the index file and re-read the bitmap 
3 ive Rene ! block, which may have been kicked out in the process. 
ite ocBs 3 
3 \?? bcs FILE_NUMBER = .VBN*4096 + (.ADDRESS-.BUFFER)*8 + .BITPOS + 1; 
: 173 90 IF .FILE_NUMBER GTR .VCBCVCBSL_MAXFILES] 
: 178 4 THEN ERR_EXIT (SS$_IDXFILEFULLY; 
: 180 498 IDX_FCB = .VCBCVCBSL_FCBFLJ; 
3 13) rh 4 gf SLE_MURBER + . VCBLVCB$B_IBMAPSIZE) + 2 GTR .IDX_FCBCFCBSL_FILESIZE) 
3 188 0496 4 BEGIN 


ee 


Oo 
@ 


E 
) 
+) .VCBLVCBSLIBMAPLBNJ, 1, INDEX. TYPE); 


ALL is in order. Set the bit and rewrite the block. Also update the 

' scan point in the VCB for the next create. Note that if the file number was 
from the Last bit in the block, we will start the scan a the next block to 
! avoid wasting a read. 


OOOCCOSO 


oO 
SSRIS AK WN —SOONOUE OOD NAAP WWI OLD NMR OS 


ADDRESSC.BITPOS) = 
WRITE_BLOCK ( OS IFFERS: 


IF .FILE -NUMBER<O, 12> EQL 0 
THEN VBN-= .VB 
ort CALL (UPDATE IBVBN, .VBN); 

NEW_FIB = .FILE_NUMBER; ! record file ID for cleanup 


Now read the old file header. If the block contained an old file header, 


4 
4 
& 
= 
| bump the file sequence number; else assign 1. 
1 


VBN = .FILE NUMBER + .vC CBSB_ IBMAPSIZE) + 2; 
IDX _FCB = - VCBCVCBSL_FCB 
BCFCBSL_WLFLJ); 


LBN7= MAP_VBN (.VBN,~.1DX Fe 
CBN) (HDRNOTMAP, FATAL, "Allocated file header not mapped'); 
0 


0 
IF .LBN EGL -1 THEN BUG 
HEADER = READ_NEW_HEADER 
IF .HEADER NEG O THEN EX OP; : 

END; ! end of file number allocation loop 


HEADER_LBN = .LBN; ' record LBN of new header 


SAVE STATUS = ‘ow STATUS(OJ 
RE EADER oA 1D Se6 


ELSE Santa FHISW FID =SEQ 
HEADERCF FI 
USER eSTATUSCOD. = ~SAVE_ STA AT 
RETURN .HEADER; 


END; ! end of routine CREATE_HEADER 


~+ mmu< 


UPLit WORD (0 0)) NEQ 0 

Ed) = = THEADERCFRISU. FID_ st Qa) +1 
FILE_NUMBER; 
US? ! restore status, bashed by CHECK_HEADER 


RSSRUNTS Sava nn un SSSR RF UR SSE SORENSESELEEE SB 
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SOOCCOCOOCOCOOSOCOSOOCOCOCO COSCO O OOO COOOOOOOOOOOOOOOOOoOO 
AAAI AID PPUNIPYPDNNONYDYD 2 2 PS OO OO SS OOO 


PROPIPINIPININININININININNINNINININININNNNININININ 2 2 9 9 SS SS 


Be Se Se ee Be Se Ge Se Se Fe Se FH Se Be Se Se Se Ge Se Be Se Se Se SH Se Se Se Se Se Se Se Se Se Ss ee Se Ge SHS Se Se SH Stee 


-TITLE CREHDR 
-IDENT \V04-000\ 


-PSECT $CODES,NOWRT,2 

-WORD 0, 0, 0 

CURRENT_VCB, NEW_FID 
HEADER CBN, USER et ATUS 


READ BCOCk WRITE BLOCK 
EXTERD_INDEX, MAP~VBN 


0000 0000 0000 00000 P.AAA: 
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14-Sep =| DISKSVMSMASTER:CF11A.SRCICREHDR.B32; 90 


52 38 = AS 
00006 
6A 0200 
58 69 
50 
51 
44 
38 
00006 
00006 
00 
goers 
FFF 
000000006 
00006 


15 
18-Sep-19 


‘Sep-19 
OFFC 00000 
00006 CF D0 00 
mB a 
‘9 Fe 001 ° 
gi ae 
30 B34¢ F 001 
FB 0001B 
85 0 000 " 
FF OF : 00 
? 12 0002A 
D4 0002C 
1 09 OO2E 3$: 
04 12 00031 
2 D6 000 3 
80 EB 0003? 48: 
o¢ 7 ied ; 
A ¢ 00040 
6041 7E 00044 
01 nb40 9E 00048 
je 9) dane 
0800 «BF BF 00053 5$: 
63 DO 00058 6$: 
38 A’ 9A 0005B 
02 A045 9E 0005F 
57 D1 00064 
1D 15 00068 
5A C2 0006A 
55 DD 00060 
01 FB 0006F 
03 0D 00074 
01 DD 00076 
30 8342 9F 00078 
03 FB O007C 
20 00 0081 
88 ES O00R? 78: 
A DD 00 B BS: 
: 63 33 
i Bie 
0D 0096 9$: 
E bp g00%F 
0000v F oF 00k} 
: DO OOOAC 
DO 00081 


4 00:54:4 VAX-11 Bliss-32 V4.0-742 
4 99:39:58 DISKSVMSMASTER:CF11A.SRCICREHDR.B32; 


CHECK HEADER, SYSSCMKRNL 
BUGS_ADRNOTMAP 


CREATE HEADER. Save R2,R3,R4,R5,R6,R7,R8,- 
R9,R10,R11 


: RRENT_VCB, VCB 
(VCR); VBN 
#0, #8, 56(VCB), VBN 
a 


#1 
a48(VCB) CVBN) 
#3, READ BLOCK 


UFFER 
a §5, #512, (BUFFER) 


zDD 
za: 
> 
J 
=) 
zDD 
m 
wn 
nm 


#8, (ADDRESS), BITPOS 
VBN 


b , RO 

FFER ADDRESS, R1 

0) Cri] 

BITPOSSCROJ, FILE_NUMBER 
LE_NUMBER, 68(VCBY 


™m 
ww 
oa 


or 
»@ 


(ern « 
mw 


AW CaN OK MUO — DWC - ONT MH — MVNO 


ee 
@48(VCB) CVBN} 
#3, READ BLOCK 


RO, BU 
BUFFER, ADDRESS 
BITPOS. (ADDRESS), 8$ 
BUFFER 


U 
#1, WRITE BLOCK 
PILE_NUMBER. #4095 


VBN 

#1 

SP 

UPDATE_IBVBN 

#4, @&#SYSSCMKRNL 
FILE NUMBER, NEW_FID 
R7, QBN 


Page 
1 g 
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CREHOR 1b-5¢ 1984 00:54:4 VAX-11 Bliss-32_V4.0-742 Page 7 cI 
705-000 ye=geei 138s 99:35:58 Web ywBAAS ERs CH Tis cReacrenpR.e32;1°%° (2), vor 
56 63 D0 00084 (VCB), IDX_FCB 522. ; 
10 AS DD 00087 PUSHL 16(IDK_FCBY : 0523) : 
DD OOOBA PUSHL VBN : ; 
00006 CF F BC CALLS #2, MAP_VBN : : 
B D ¢ MOVL RO, LBN : | : 
FFFFFFFF © 8F 8 p C4 CMPL LBM, f=) + 0524 
ert Sh Bley : 
00008 CF «WORD  <BUG$_HDRNOTMAP! 4> : 
SB DD 00001 10$: § PUSHL LBN + 0525 
0000v ff 9} E BO08 CALLS #1, READ_NEW_HEADER ; | 
4 Q D 990 MOVL RO. HEADER : 
} DB BNEG 3=«d3.'1$ + 0526. 
FF27 00DD BRW 1$ : 
00006 cf B D6 O0E0 11$:  MOVL LBN, HEADER_LBN > 0529 
2 PPbeS OEE BF SoocA MOVL , USER STATUS. SAVE_STATUS $332 
cf DD OO0E PUSHL HEADER : 
00006 CF 08 FB OOOF CALLS #2, CHECK_HEADER : 
85 83 poor? Beat 3s ; 
04 ad 86 o00F9 INcw 4 (HEADER) + 0533 
04 Ad 0 B0 OO0FE 128: MOVW #1, 4(HEADER) + 0534 
02 AG 5 BO 00102 138:  MOVW FILE_NUMBER, 2(HEADER) > 0535 
00006 cf 52 D0 00106 MOVL  SAVE-STATUS. USER_STATUS : 0536 
0 54 dO 00108 MOVL HEADER, RO ; 0538 
04 0010 RET : 0540 


; Routine Size: 271 bytes, Routine Base: S$CODES + 0006 
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ONIN NIN NNO AOA OOAAOOOUIUI: 
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GLOBAL ROUTINE UPDATE_IBVBN (VBN) : 


'e+ 


FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 
UPDATE _VBN (ARG1) 


INPUT PARAMETERS: 
ARG1: new start VBN 


! IMPLICIT INPUTS: 
CURRENT_VCB: VCB of volume 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
VBN written into VCB 


BEGIN 
EXTERNAL 


~o 


—————————S nn aS 


Page 
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This routine writes back the starting VBN for the index file bitmap 
scan into the vcb. This routine must be called in kernel mode. 


CURRENT_VCB : REF BBLOCK; 


CURRENT_VCBCVCB$B_IBMAPVBN] = .VBN; 
END; 


000 
50 0000G CF D 
3A = AO 04 AC 8 


13 bytes, Routine Base: S$CODE$S + 0115 


; Routine Size: 


' VCB of volume 


! end of routine UPDATE_VBN 


UPDATE _IBVBN, Save nothing 


CREHDR 


v04-000 
70 581 
; 
i 
rh 5 
75 § 
pees 
8 385 
7 590 
st 23) 
BBR 
8 594 
86 399 
87 598 
88 599 
89 0600 
90 0601 
91 060 
9 060 
9 0604 
94 0605 
95 06 
96 060 
97 0608 
98 0609 
99 0610 
00 
4 
5 


QESR 


oo 
AUF wN "OOO NO UFWAD "OO 0@n 


WANA. A. AANA 


AAAS 
WAAINI WII AIO NINININININIDN 2 2 OO OO oe 
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RMNNNONIN 2 2 oe 


HAAAAANNANW 
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ROUTINE READ_NEW_HEADER (LBN) = 
ie 
; FUNCTIONAL DESCRIPTION: 
This routine reads the block about to be used for a new file header. 
It uses a local condition handler to fix up errors. 
CALLING SEQUENCE: 
READ_NEW_HEADER (ARG1) 


INPUT PARAMETERS: 
ARG1: LBN of block to read 


IMPLICIT INPUTS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
address of buffer containing block or 0 if bad 


SIDE y Hig 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

' OUTPUT PARAMETERS: 
NONE 
i 

i 

i 

i 

i 

i 

i 

lock read and/or written 
le 


BEGIN 
LOCAL 
HEADER : REF BBLOCK; ! address of block read 
EXTERNAL ROUTINE 
READ BLOCK, ' read a block 
WRITE_BLOCK, ' write a block 
INVALIDATE ' invalidate a buffer 
CREATE_BLOCK; i create a new block buffer 


! Under control of the condition handler, we read the block. If the read 

! fails, we attempt to rewrite the block and then read it again. If either 
of the latter fails, we return failure. 

ENABLE HANDLER; 

HEADER = READ_BLOCK (.LBN, 1, HEADER_TYPE); 


IF HEADER EQL 0 
THEN 


BEGIN 
HEADER = CREATE_BLOCK (.LBN, 1, HEADER_TYPE); 


Pa 
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; 327 $3 WRITE BLOCK (.HEADER); 

; 8 6 INVALIDATE (.HEADER); 

; 329 64 HEADER = READ_BLOCK (.LBN, 1, HEADER_TYPE); 

; 0 641 ND; 

: 1 648 

: ¢ 643 RETURN .HEADER; 

; 0645 END; ! end of routine READ_NEW_HEADER 


-EXTRN INVALIDATE, CREATE_BLOCK 
0004 00000 READ_NEW_HEADER: 
» WORD 


Save R2 0581 
6D 003F CF DE 0000 MOVAL 2$, (FP) 0614 
7E 01 7D 0000 MOva #1, -(SP) 0632 
04 at DD O000A PUSHL  LBN 
0000G CF 03 FB 0000D CALLS #3, READ_BLOCK 
52 50 D0 Boots MOVL RO, HEADER 
2A 12 0001 BNEQ 1$ 
7E 01 7D 00017 MOvVa #i, -(SP) 0637 
04 ag DD OOO1A 
0000G CF 03 FB 0001D CALLS #3, CREATE_BLOCK 
52 50 00 00022 MOVL » HEADER 
52 0D 00025 PUSHL HEADER 0638 
0000G CF 01 FB 00027 CALLS #1, WRITE_BLOCK 
52 0D 0002C PUSHL 4H R 0639 
0000G CF 01 FB ooo es CALLS #1, INVALIDATE 
7E 01 7D 000 ova #1, -(SP) 0640 
04 AC ODD 00036 PUSHL LBN 
0000G CF 03 «=FB ted CALLS #3, READ_BLOCK 
52 50 DO 0003E MOVL RO, HEADER 
50 52 D0 00041 1$: MOVL HEADER, RO 0643 
04 00044 RET 0645 
0000 00045 2$: «WORD Save nothing 0614 
7E D4 00047 CLRL -(SP) 
5E bp 00089 PUSHL  $P 
7E 04 at D 00048 mMOva 4(AP), -(SP) 
0000v CF 03 FB 0004F CALLS #3, HANDLER 
04 00054 RET 


; Routine Size: 85 bytes, Routine Base: $CODE$ + 0122 


v 
Cc 
a 
=x 
- 
~ 
@ 
2 
BeBe Se Se Ge Se Se Se Se Se Se Be Be Be Se Be Be Be Se Se Se Se Se Be Be Se & 
So 
Oo 
w 
> 


-_— 
<o 


ROUTINE HANDLER (SIGNAL, MECHANISM) = 
'e4 
! 

FUNCTIONAL DESCRIPTION: 
This routine is the condition handler for the initial header read. 
On surface errors, it unwinds and causes a return of 0 to the caller 
of the 1/0 routine to indicate error. Hard drive errors cause the 
usual error exit. 


CALLING SEQUENCE: 
HANDLER (ARG1, ARG2) 


INPUT PARAMETERS: 
ARG1: address of signal array 
ARG2: address of mechanism array 


IMPLICIT INPUTS: 
NONE 
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OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


SS$_RESIGNAL or none if unwind 
SIDE EFFECTS: 
NONE 


eee J 


| 
BEGIN 

SIGNAL : REF BBLOCK, ' signal arg array 

MECHANISM : REF BBLOCK; ! mechanism arg array 
EXTERNAL , 

IO_STATUS : VECTOR; ! 1/0 status block of last operation 


! If the condition is change mode to user (error exit) and the status is 
! read error, zero the return RO and unwind to the the establisher. On 

' most write errors, zero the return RO and unwind to the caller. 
Otherwise, just resignal the condition. 


ff, SIGUALCCHT OL. _516 WANED EQL SS$_CMODUSER 


BEGIN 
MECHANISMCCHFSL_MCH_SAVRO) = 0; 


: 
CREHDR 16-Sep-1984 00:54:4 VAX=11 BLiss-32_V4.0-742 12. 
v04-000 14-Sep-1984 9953933 DISKSVMSMASTER:CFTIA.SRCICREHDR.B32: 1-7" (5) | 

; 393 703 IF .SIGNALECHESL S1G_ARG1] EOL SS$_PARITY | : 

: 394 704 OR :SIGNALECHFSL~SIG-ARG1) EQL SS$~DATACHECK ; 

: 395 209 OR .SIGNALLCHFSL~SIG_ARGI EOL SS$~ FORMAT ; 

: $f ? 5 i enp: UNWIND (DEPADR = MECHANISMCCHFSL MCH_DEPTHI) 

: 399 0709 | : 

3 rts gfie RETURN SS$_RESIGNAL; ! status is irrelevant if unwinding : 

; 402 0712 1 END; ! end of routine HANDLER 3 

.EXTRN I0_STATUS, SYSSUNWIND ; 

0000 00000 HANDLER:.WORD Save nothing ; 0646 F 

50 04 AC dO 00002 MOVL SIGNAL, : 0698 : 

00000424 aF 04 Ad 1 00006 CMPL 4(RO), #1060 : ; 

31 12 0000 BNEG 28 : F 

51 08 AC 00 0001 MOVL § MECHANISM, R1 : 0701 ; 

OC Al D4 00014 CLRL =—-:12(R : ; 

000001F4 8F 08 AO 01 00017 CMPL (RO), #500 : 0703 ; 

14 13 QOO1F BEQL «6s 18 ; 3 

0000005¢ &F 08 AD 01 90021 CMPL  8(RO), #92 > 0704 ; 

0A 13 00029 BEQL «6-18 : ; 

0000008C BF 08 Ad 1 000¢8 CMPL  8(RO), #188 > 0705 : 

C 12 000 BNEG =. 2$ : ; 

F D4 00035 18: CLRL = (SP) : 0707 ; 

08 Al 9F 00037 PUSHAB 8(R1) : ; 

000000006 00 02 FB OO03A #2, SYSSUNWIND : : 

50 0918 8F 3C 00041 2$: nOWzuL #2328, RO : 0710 : 

04 00046 RET : 0712 : 

; Routine Size: 71 bytes, | Routine Base: SCODES + 0177 ; 

> 403 0713 1 : 

: 404 0714 1 END 3 

> 405 0715 0 ELUDOM 3 

, PSECT SUMMARY | 

: Name Bytes Attributes | 3 

; SCODES 446 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | ; 

} Py 

| : 

; Library Statistics | ; 
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: File Total Loaded Percent Mapped Time 
; _$255S$DUA28:(SYSLIBILIB.L32;1 18619 22 0 1000 00:01.8 
; COMMAND QUALIFIERS 
A BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:CREHDR/OBJ=OBJ$:CREHDR MSRC$:CREHDR/UPDATE=(ENH$: CREHDR) 
ztze: 440 code + 6 data bytes 
un Time 712.0 


hy Time: 00:36.4 
Lines/CPU Min: 586 
Lexemes/CPU-Min: 13219 
Memory Used: 139 pages 


Comniiation Complete 
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